home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / GNU_C++ / LIB / SRC / GEMLIB38.LZH / a_scrp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-07-10  |  823 b   |  46 lines
  1. /*
  2.  * Aes scrap interface
  3.  *
  4.  * ++fgth    ridderbusch.pad@nixdorf.com
  5.  * modified: cf -- felsch@tu-harburg.de
  6.  */
  7. #include "gem.h"
  8.  
  9.  
  10. int scrp_clear(void)
  11. {
  12.    aes_control[0] = 82;
  13.    aes_control[1] = 0;
  14.    aes_control[2] = 1;
  15.    aes_control[3] = 0;
  16.    aes_control[4] = 0;
  17.    aes(&aes_params);
  18.     return aes_intout[0];
  19. }
  20.  
  21.  
  22. int scrp_read(char *Scrappath)
  23. {
  24.     aes_addrin[0] = (long)Scrappath;
  25.    aes_control[0] = 80;
  26.    aes_control[1] = 0;
  27.    aes_control[2] = 1;
  28.    aes_control[3] = 1;
  29.    aes_control[4] = 0;
  30.    aes(&aes_params);
  31.     return aes_intout[0];
  32. }
  33.  
  34.  
  35. int scrp_write(char *Scrappath)
  36. {
  37.     aes_addrin[0] = (long)Scrappath;
  38.    aes_control[0] = 81;
  39.    aes_control[1] = 0;
  40.    aes_control[2] = 1;
  41.    aes_control[3] = 1;
  42.    aes_control[4] = 0;
  43.    aes(&aes_params);
  44.     return aes_intout[0];
  45. }
  46.